Attribute VB_Name = "Module1"
Option Explicit
Const DSN As String = "xe"
Const UserId As String = "gkbiim"
Const PassWord As String = "epcus"
Dim choi As New ChoiChoi

Sub doSelect()
Attribute doSelect.VB_ProcData.VB_Invoke_Func = "i\n14"
   choi.connect DSN, UserId, PassWord
   choi.doSelect Selection
End Sub
Sub doUpdate()
Attribute doUpdate.VB_ProcData.VB_Invoke_Func = "u\n14"
   choi.connect DSN, UserId, PassWord
    choi.doExecute Selection
End Sub
Sub createConstraintsSheet()
   choi.connect DSN, UserId, PassWord
   choi.createConstraintsSheet
End Sub

